|
100
|
How do I specify the indentation of the child items relative to their parents
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Indent := 11
oPropertiesList:Select(oPropertiesList)
oPropertiesList:ExpandAll()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
99
|
How do I get the a property based on its identifier
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:BeginUpdate()
oPropertiesList:Add("Root","",-1/*Label*/)
oPropertiesList:Add("Child 1",1,1/*Edit*/,,"Root"):ID := 1234
oPropertiesList:Add("Child 2",2,1/*Edit*/,,"Root")
oPropertiesList:SetProperty("ExpandItem","Root",.T.)
oPropertiesList:Add("Property",oPropertiesList:Property(1234):Name(),-1/*Label*/)
oPropertiesList:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
98
|
How do I get the a property based on its index
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:BeginUpdate()
oPropertiesList:Add("Root","",-1/*Label*/)
oPropertiesList:Add("Child 1",1,1/*Edit*/,,"Root")
oPropertiesList:Add("Child 2",2,1/*Edit*/,,"Root")
oPropertiesList:SetProperty("ExpandItem","Root",.T.)
oPropertiesList:Add("Item",oPropertiesList:Item(1):Name(),-1/*Label*/)
oPropertiesList:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
97
|
How do I get the number or count of the properties being listed
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:BeginUpdate()
oPropertiesList:Add("Root","",-1/*Label*/)
oPropertiesList:Add("Child 1",1,1/*Edit*/,,"Root")
oPropertiesList:Add("Child 2",2,1/*Edit*/,,"Root")
oPropertiesList:SetProperty("ExpandItem","Root",.T.)
oPropertiesList:Add("Count",oPropertiesList:Count(),-1/*Label*/)
oPropertiesList:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
96
|
How do I change the name or the caption for a column
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:HeaderVisible := .T.
oPropertiesList:SetProperty("ColumnCaption",0,"Properties")
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
95
|
How do I expand a property
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:BeginUpdate()
oPropertiesList:Add("Root","",-1/*Label*/)
oPropertiesList:Add("Child 1",1,1/*Edit*/,,"Root")
oPropertiesList:Add("Child 2",2,1/*Edit*/,,"Root")
oPropertiesList:SetProperty("ExpandItem","Root",.T.)
oPropertiesList:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
94
|
How do I change the width for a column
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("ColumnWidth",1,48)
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
93
|
How do I clear or remove all properties
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Add("First","A",1/*Edit*/)
oPropertiesList:Clear()
oPropertiesList:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
92
|
How do I remove a property
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Add("First","A",1/*Edit*/)
oPropertiesList:Remove("First")
oPropertiesList:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
91
|
How do I add a property
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Add("First Name","Mihai",1/*Edit*/)
oPropertiesList:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
90
|
How do I change the visual aspect description's spliter, using EBN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:SetProperty("Background",0/*exHeaderFilterBarButton*/,0x1000000)
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
89
|
How do I change the visual aspect for thumb parts in the scroll bars, using EBN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList:VisualAppearance():Add(3,"c:\exontrol\images\hot.ebn")
oPropertiesList:SetProperty("Background",388/*exHSThumb*/,0x1000000)
oPropertiesList:SetProperty("Background",389/*exHSThumbP*/,0x2000000)
oPropertiesList:SetProperty("Background",391/*exHSThumbH*/,0x3000000)
oPropertiesList:SetProperty("Background",260/*exVSThumb*/,0x1000000)
oPropertiesList:SetProperty("Background",261/*exVSThumbP*/,0x2000000)
oPropertiesList:SetProperty("Background",263/*exVSThumbH*/,0x3000000)
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
88
|
I've seen that you can change the visual appearance for the scroll bar. How can I do that
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList:VisualAppearance():Add(3,"c:\exontrol\images\hot.ebn")
oPropertiesList:SetProperty("Background",324/*exSBtn*/,0x1000000)
oPropertiesList:SetProperty("Background",325/*exSBtnP*/,0x2000000)
oPropertiesList:SetProperty("Background",327/*exSBtnH*/,0x3000000)
oPropertiesList:SetProperty("Background",404/*exHSBack*/,AutomationTranslateColor( GraMakeRGBColor ( { 240,240,240 } ) , .F. ))
oPropertiesList:SetProperty("Background",276/*exVSBack*/,AutomationTranslateColor( GraMakeRGBColor ( { 240,240,240 } ) , .F. ))
oPropertiesList:SetProperty("Background",511/*exScrollSizeGrip*/,AutomationTranslateColor( GraMakeRGBColor ( { 240,240,240 } ) , .F. ))
oPropertiesList:HeaderVisible := .T.
oPropertiesList:ColumnAutoResize := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
87
|
Can I change the forecolor for the tooltip
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ToolTipDelay := 1
oPropertiesList:ToolTipWidth := 364
oPropertiesList:SetProperty("Background",66/*exToolTipForeColor*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oPropertiesList:AllowTooltip := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
86
|
Can I change the background color for the tooltip
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ToolTipDelay := 1
oPropertiesList:ToolTipWidth := 364
oPropertiesList:SetProperty("Background",65/*exToolTipBackColor*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oPropertiesList:Select(oPropertiesList)
oPropertiesList:AllowTooltip := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
85
|
Can I change the default border of the tooltip, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ToolTipDelay := 1
oPropertiesList:ToolTipWidth := 364
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:SetProperty("Background",64/*exToolTipAppearance*/,0x1000000)
oPropertiesList:Select(oPropertiesList)
oPropertiesList:AllowTooltip := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
84
|
Is there any option to highligth the column from the cursor - point
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:SetProperty("Background",32/*exCursorHoverColumn*/,0x1000000)
oPropertiesList:HeaderVisible := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
83
|
How can change the visual appearance for the spin control, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList:SetProperty("Background",22/*exSpinUpButtonUp*/,0x1000000)
oPropertiesList:SetProperty("Background",23/*exSpinUpButtonDown*/,0x2000000)
oPropertiesList:SetProperty("Background",24/*exSpinDownButtonUp*/,0x1000000)
oPropertiesList:SetProperty("Background",25/*exSpinDownButtonDown*/,0x2000000)
oPropertiesList:AllowSpin := .T.
oPropertiesList:Add("Spin",50,1/*Edit*/)
oPropertiesList:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
82
|
How can change the visual appearance for the slider or track bar, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:SetProperty("Background",16/*exSliderThumb*/,0x1000000)
oPropertiesList:SetProperty("Background",15/*exSliderRange*/,AutomationTranslateColor( GraMakeRGBColor ( { 210,210,210 } ) , .F. ))
oPropertiesList:Add("Slider",50,16/*EditSlider*/)
oPropertiesList:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
81
|
How do I change the visual aspect of the drop down calendar window, that shows up if I click the drop down filter button, using EBN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList:SetProperty("Background",8/*exDateHeader*/,0x1000000)
oPropertiesList:SetProperty("Background",9/*exDateTodayUp*/,0x1000000)
oPropertiesList:SetProperty("Background",10/*exDateTodayDown*/,0x2000000)
oPropertiesList:SetProperty("Background",11/*exDateScrollThumb*/,0x1000000)
oPropertiesList:SetProperty("Background",12/*exDateScrollRange*/,AutomationTranslateColor( GraMakeRGBColor ( { 230,230,230 } ) , .F. ))
oPropertiesList:SetProperty("Background",13/*exDateSeparatorBar*/,AutomationTranslateColor( GraMakeRGBColor ( { 230,230,230 } ) , .F. ))
oPropertiesList:SetProperty("Background",14/*exDateSelect*/,0x1000000)
oPropertiesList:Add("Date","1/1/2001",9/*EditDate*/)
oPropertiesList:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
80
|
How can change the visual appearance for the button that are visible inside the editors, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList:SetProperty("Background",7/*exButtonDown*/,0x1000000)
oPropertiesList:SetProperty("Background",6/*exButtonUp*/,0x2000000)
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
79
|
How can change the visual appearance for the button that shows the drop down editors, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList:SetProperty("Background",4/*exDropDownButtonUp*/,0x1000000)
oPropertiesList:SetProperty("Background",5/*exDropDownButtonDown*/,0x2000000)
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
78
|
Can I change the order of the buttons in the scroll bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("ScrollOrderParts",1/*exHScroll*/,"t,l,r")
oPropertiesList:SetProperty("ScrollOrderParts",0/*exVScroll*/,"t,l,r")
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
77
|
The thumb size seems to be very small. Can I make it bigger
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("ScrollThumbSize",0/*exVScroll*/,128)
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
76
|
How do I enlarge or change the size of the control's scrollbars
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ScrollHeight := 18
oPropertiesList:ScrollWidth := 18
oPropertiesList:ScrollButtonWidth := 18
oPropertiesList:ScrollButtonHeight := 18
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
75
|
How can I display my text on the scroll bar, using a different font
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("ScrollPartCaption",0/*exVScroll*/,256/*exThumbPart*/,"This is just a text")
oPropertiesList:ScrollFont(0/*exVScroll*/):Size := 12
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
74
|
How can I display my text on the scroll bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("ScrollPartCaption",0/*exVScroll*/,256/*exThumbPart*/,"this is just a text")
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
73
|
How do I assign a tooltip to a scrollbar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("ScrollToolTip",0/*exVScroll*/,"This is a tooltip being shown when you click and drag the thumb in the vertical scroll bar")
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
72
|
How do I assign an icon to the button in the scrollbar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oPropertiesList:SetProperty("ScrollPartVisible",0/*exVScroll*/,32768/*exLeftB1Part*/,.T.)
oPropertiesList:SetProperty("ScrollPartCaption",0/*exVScroll*/,32768/*exLeftB1Part*/,"<img>1</img>")
oPropertiesList:ScrollHeight := 18
oPropertiesList:ScrollButtonWidth := 18
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
71
|
I need to add a button in the scroll bar. Is this possible
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("ScrollPartVisible",0/*exVScroll*/,32768/*exLeftB1Part*/,.T.)
oPropertiesList:SetProperty("ScrollPartCaption",0/*exVScroll*/,32768/*exLeftB1Part*/,"1")
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
70
|
Can I display an additional buttons in the scroll bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("ScrollPartVisible",0/*exVScroll*/,32768/*exLeftB1Part*/,.T.)
oPropertiesList:SetProperty("ScrollPartVisible",0/*exVScroll*/,16384/*exLeftB2Part*/,.T.)
oPropertiesList:SetProperty("ScrollPartVisible",0/*exVScroll*/,1/*exRightB6Part*/,.T.)
oPropertiesList:SetProperty("ScrollPartVisible",0/*exVScroll*/,2/*exRightB5Part*/,.T.)
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
69
|
Can I change the font for the tooltip
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
LOCAL oStdFont
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ToolTipDelay := 1
oStdFont := oPropertiesList:ToolTipFont()
oStdFont:Name := "Tahoma"
oStdFont:Size := 14
oPropertiesList:AllowTooltip := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
68
|
How do I call your x-script language
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oProperty
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oProperty := oPropertiesList:ExecuteTemplate("Add(`Bold`,1,1)")
oProperty:Bold := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
67
|
How do I disable sorting the columns when clicking the control's header
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SortOnClick := 0/*exNoSort*/
oPropertiesList:HeaderVisible := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
66
|
Can I use your EBN files to change the visual appearance for +/- expand - collapse buttons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:VisualAppearance():Add(2,"c:\exontrol\images\pushed.ebn")
oPropertiesList:HasButtons := 4/*exCustom*/
oPropertiesList:SetProperty("HasButtonsCustom",.F.,16777216)
oPropertiesList:SetProperty("HasButtonsCustom",.T.,33554432)
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
65
|
Can I use my own icons for the +/- ( expand/collapse ) buttons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oPropertiesList:HasButtons := 4/*exCustom*/
oPropertiesList:SetProperty("HasButtonsCustom",.F.,1)
oPropertiesList:SetProperty("HasButtonsCustom",.T.,2)
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
64
|
How do I change visual appearance of the +/- ( expand/collapse ) buttons
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:HasButtons := 3/*exWPlus*/
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
63
|
How do I browse or select for a com or net object
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SelectedObject := oPropertiesList
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
62
|
How do I expand all properties
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Select(oPropertiesList)
oPropertiesList:ExpandAll()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
61
|
How do I enable resizing the columns at runtime
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ColumnsAllowSizing := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
60
|
How do I call your x-script language
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Template := "Add(`First`,1,1)"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
59
|
How can I enable or disable the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Enabled := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
58
|
I've seen that the width of the tooltip is variable. Can I make it larger
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ToolTipWidth := 328
oPropertiesList:AllowTooltip := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
57
|
How do I disable showing the tooltip for all control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ToolTipDelay := 0
oPropertiesList:AllowTooltip := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
56
|
How do I let the tooltip being displayed longer
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ToolTipPopDelay := 10000
oPropertiesList:AllowTooltip := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
55
|
How do I show the tooltip quicker
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ToolTipDelay := 1
oPropertiesList:AllowTooltip := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
54
|
How do I get the handle of the control's window
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
LOCAL var_hWnd
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
var_hWnd := oPropertiesList:hWnd()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
53
|
How do I show alternate rows in different background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("BackColorAlternate",AutomationTranslateColor( GraMakeRGBColor ( { 240,240,240 } ) , .F. ))
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
52
|
How do enable or disable tooltips
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:AllowTooltip := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
51
|
How do change the foreground color for the control's header bar, using EBN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:HeaderVisible := .T.
oPropertiesList:SetProperty("ForeColorHeader",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
50
|
How do change the visual appearance for the control's header bar, using EBN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:HeaderVisible := .T.
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:SetProperty("BackColorHeader",0x1000000)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
49
|
How do I change the foreground color for the description part in the bottom side of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("ForeColorDescription",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
48
|
How do I change the visual appearance for the description part in the bottom side of the control, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:SetProperty("BackColorDescription",0x1000000)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
47
|
How do I change the background color for the description part in the bottom side of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("BackColorDescription",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
46
|
Is there any option to specify the height of the items, before adding them
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:DefaultItemHeight := 13
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
45
|
How do I show or hide the connection between categories
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:MarkCategories := .T.
oPropertiesList:LinkCategories := .F.
oPropertiesList:ShowCategories := .T.
oPropertiesList:ShowPropertyPages := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
44
|
How do I show or hide the categories
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:MarkCategories := .T.
oPropertiesList:SetProperty("MarkLineColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oPropertiesList:ShowCategories := .T.
oPropertiesList:ShowPropertyPages := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
43
|
How do I change the foreground color for categories
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("ForeColorCategories",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oPropertiesList:ShowCategories := .T.
oPropertiesList:ShowPropertyPages := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
42
|
How do I change the background color for categories
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("BackColorCategories",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oPropertiesList:ShowCategories := .T.
oPropertiesList:ShowPropertyPages := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
41
|
How do I sort the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Select(oPropertiesList)
oPropertiesList:Sort(.F.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
40
|
Is there any option to change the color for the grid lines
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:HasGridLines := -1/*exAllLines*/
oPropertiesList:SetProperty("GridLineColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
39
|
How do I specify the default category
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:DefaultCategory := "Font"
oPropertiesList:ShowCategories := .T.
oPropertiesList:ShowPropertyPages := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
38
|
How do I show or hide the categories
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:MarkCategories := .F.
oPropertiesList:ShowCategories := .T.
oPropertiesList:ShowPropertyPages := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
37
|
How do I get a property based on its name
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Add("First Name","Mihai",1/*Edit*/):ID := 100
oPropertiesList:Add("Last Name","Filimon",1/*Edit*/)
oPropertiesList:SelectedProperty := oPropertiesList:Property(100)
oPropertiesList:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
36
|
How do I get a property based on its name
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Add("First Name","Mihai",1/*Edit*/)
oPropertiesList:Add("Last Name","Filimon",1/*Edit*/)
oPropertiesList:SelectedProperty := oPropertiesList:Property("Last Name")
oPropertiesList:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
35
|
How do I maintain performance while making several changes
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:BeginUpdate()
oPropertiesList:Add("First",1,1/*Edit*/)
oPropertiesList:Add("Second",1,1/*Edit*/)
oPropertiesList:EndUpdate()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
34
|
How can I get a list of interfaces that an object implements
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
DevOut( oPropertiesList:Interfaces(oPropertiesList) )
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
33
|
How can I display something else when including the elements of a collection
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ShowObjects := .T.
oPropertiesList:ShowItemsCollection := .T.
oPropertiesList:NameItemsCollection := "Name;Caption;Item;Index"
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
32
|
How can I include the elements of a collection
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ShowObjects := .T.
oPropertiesList:ShowItemsCollection := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
31
|
How can I use a spin control to edit numeric values
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:AllowSpin := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
30
|
How can I change the control's font
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Font():Name := "Tahoma"
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
29
|
How do I show or hide the variables of an object like Font
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ShowVariables := .T.
oPropertiesList:Select(oPropertiesList:Font())
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
28
|
How do I show or hide the categories
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ShowCategories := .T.
oPropertiesList:ShowPropertyPages := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
27
|
How do I refresh the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Add("Last Name","Filimon",1/*Edit*/)
oPropertiesList:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
26
|
How can still display the selected items when the control loses the focus
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:HideSelection := .F.
oPropertiesList:Add("First Name","Mihai",1/*Edit*/)
oPropertiesList:Add("Last Name","Filimon",1/*Edit*/)
oPropertiesList:SelectedProperty := oPropertiesList:Property("Last Name")
oPropertiesList:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
25
|
How do I change the visual appearance effect for the selected item, using EBN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:SetProperty("SelBackColor",0x1000000)
oPropertiesList:SetProperty("SelForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 0,0,0 } ) , .F. ))
oPropertiesList:Add("First Name","Mihai",1/*Edit*/)
oPropertiesList:Add("Last Name","Filimon",1/*Edit*/)
oPropertiesList:SelectedProperty := oPropertiesList:Property("Last Name")
oPropertiesList:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
24
|
How do I change the colors for the selected item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("SelBackColor",AutomationTranslateColor( GraMakeRGBColor ( { 0,0,0 } ) , .F. ))
oPropertiesList:Add("First Name","Mihai",1/*Edit*/)
oPropertiesList:Add("Last Name","Filimon",1/*Edit*/)
oPropertiesList:SelectedProperty := oPropertiesList:Property("Last Name")
oPropertiesList:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
23
|
How do I show or hide the non browseable members
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ShowNonBrowsable := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
22
|
How can I hide or show the object's property pages
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ShowPropertyPages := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
21
|
How do I filter properties when loading
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:FireIncludeProperty := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
20
|
How do I get or set the selected property
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Add("First Name","Mihai",1/*Edit*/)
oPropertiesList:Add("Last Name","Filimon",1/*Edit*/)
oPropertiesList:SelectedProperty := oPropertiesList:Property("Last Name")
oPropertiesList:Refresh()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
19
|
How do I remove "Invalid property value." message
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:InvalidValueMessage := ""
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
18
|
How do I change the "Invalid property value." message
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:InvalidValueMessage := "new message"
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
17
|
How do I edit a property as soon as the user selects it
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:EditOnSelect := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
16
|
How do I make the control read only
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ReadOnly := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
15
|
How do I show or hide the read only members
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ShowReadOnly := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
14
|
How do I show or hide the grid lines
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:HasGridLines := 0/*exNoLines*/
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
13
|
How do I hide the hierarchy lines
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:HasLines := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
12
|
How can I add the horizontal scroll bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ColumnAutoResize := .F.
oPropertiesList:HeaderVisible := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
11
|
How do I show or hide the control's header bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:HeaderVisible := .T.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
10
|
How do I show or hide the objects members
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ShowObjects := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
9
|
How do I show or hide the restricted members
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ShowRestricted := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
8
|
How do I show or hide the hidden members
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:ShowHidden := .F.
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
7
|
How do I browse or select an object
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
6
|
How do I change the control's foreground color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 120,0,120 } ) , .F. ))
oPropertiesList:Select(oPropertiesList)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
5
|
How do I change the control's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 200,200,200 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
4
|
How do change the visual appearance for the control's border, using EBN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oPropertiesList:BorderStyle := 16777216/*0x1000000+*/
oPropertiesList:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,255,255 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
3
|
How do I remove the control's border
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:BorderStyle := 0/*None*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
2
|
How do I change the height of the description part in the bottom side of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:DescriptionHeight := 100
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
1
|
How do I hide or show the description part in the bottom side of the control
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oPropertiesList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oPropertiesList := XbpActiveXControl():new( oForm:drawingArea )
oPropertiesList:CLSID := "Exontrol.PropertiesList.1" /*{A703DF80-DFF3-48D7-A4C7-47CF6A48425C}*/
oPropertiesList:create(,, {10,60},{610,370} )
oPropertiesList:DescriptionVisible := .F.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|